Cream of the Crop 25/Cream of the Crop 25.iso/comm/insite.zip/_SETUP.1/inSite.exe/0/RCDATA/TFRMLINKSAVER/TFRMLINKSAVER.txt

Text File | 1997-03-29 | 22KB | 863 lines

object frmLinkSaver: TfrmLinkSaver
  Left = 70
  Top = 103
  Width = 371
  Height = 291
  HelpContext = 5
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mnuMain
  Scaled = False
  OnActivate = frmLinkSaverActivate
  OnClose = frmLinkSaverClose
  OnCloseQuery = frmLinkSaverCloseQuery
  OnCreate = frmLinkSaverCreate
  OnDestroy = frmLinkSaverDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object stsBar: TStatusBar
    Left = 0
    Top = 226
    Width = 363
    Height = 19
    Hint = 'The status/hint bar...'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <
      item
        Alignment = taCenter
        Width = 500
      end>
    ParentFont = False
    SimplePanel = False
  end
  object pgsMain: TPageControl
    Left = 0
    Top = 0
    Width = 363
    Height = 226
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 1
    OnChange = pgsMainChange
    object TabSheet1: TTabSheet
      HelpContext = 2001
      Caption = 'Available Links'
      object Label1: TLabel
        Left = 2
        Top = 66
        Width = 138
        Height = 13
        Caption = 'Starting URL:'
      end
      object Label6: TLabel
        Left = 54
        Top = 7
        Width = 125
        Height = 13
        Caption = 'Recurse Depth'
      end
      object Label3: TLabel
        Left = 2
        Top = 27
        Width = 158
        Height = 13
        Caption = 'Scan URL Mask:'
      end
      object cbbURLs: TComboBox
        Left = 1
        Top = 81
        Width = 226
        Height = 21
        Hint = 'Right Click to copy from or open in Netscape...'
        HelpContext = 2004
        Font.Color = clMaroon
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        ParentShowHint = False
        PopupMenu = popCbbURLs
        ShowHint = True
        TabOrder = 0
      end
      object btnScanURLs: TButton
        Left = 231
        Top = 80
        Width = 122
        Height = 23
        Hint = 'Scan the URL for files...'
        HelpContext = 2009
        Caption = '&Scan For Files...'
        Default = True
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = btnScanURLsClick
      end
      object treLinks: TTreeView
        Left = 0
        Top = 106
        Width = 355
        Height = 92
        Hint = 'Delete key deletes, Double Click to scan, Right Click to sort...'
        HelpContext = 2010
        ReadOnly = True
        Indent = 15
        Items.Data = {
          010000001E0000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
          054C696E6B73}
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        TabOrder = 3
        OnMouseUp = treLinksMouseUp
        OnDblClick = treLinksDblClick
        OnKeyDown = treLinksKeyDown
        ParentFont = False
        StateImages = imgState
      end
      object grpInclude: TGroupBox
        Left = 183
        Top = -1
        Width = 170
        Height = 76
        TabOrder = 4
        object chkIncludeHTMLfiles: TCheckBox
          Left = 9
          Top = 13
          Width = 121
          Height = 17
          Hint = 'Add HTML files to files found list...'
          HelpContext = 2007
          Caption = 'Incl&ude HTML Files'
          TabOrder = 0
        end
        object chkShowInlineImages: TCheckBox
          Left = 9
          Top = 33
          Width = 136
          Height = 15
          Hint = 'Add Inline Images to files found list...'
          HelpContext = 2008
          TabStop = False
          Caption = '&Include Inline Images'
          State = cbChecked
          TabOrder = 1
          OnClick = chkShowInlineImagesClick
        end
        object chkApplyMasktoFiles: TCheckBox
          Left = 9
          Top = 52
          Width = 153
          Height = 17
          Hint =
            'Apply mask to determine if file found is added to files found li' +
            'st...'
          HelpContext = 2003
          Caption = '&Apply Mask to Files'
          TabOrder = 2
        end
      end
      object spnRecurse: TSpinEdit
        Left = 1
        Top = 2
        Width = 47
        Height = 22
        Hint =
          '1 indicates only current page'#39's inline images and linked files..' +
          '.'
        HelpContext = 2005
        AutoSize = False
        MaxValue = 20
        MinValue = 1
        TabOrder = 5
        Value = 1
        OnChange = spnRecurseChange
      end
      object cbbScanMasks: TComboBox
        Left = 1
        Top = 43
        Width = 178
        Height = 21
        Hint = 'Enter a mask to determine URLs scanned...'
        HelpContext = 2002
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        ParentShowHint = False
        PopupMenu = popCbbURLs
        ShowHint = False
        TabOrder = 2
        Text = 'All URLs (*)'
      end
    end
    object TabSheet2: TTabSheet
      HelpContext = 1001
      Caption = 'Available Files'
      object Label2: TLabel
        Left = 79
        Top = 82
        Width = 61
        Height = 13
        Caption = 'Selected:'
      end
      object btnSaveFiles: TButton
        Left = 208
        Top = 77
        Width = 145
        Height = 22
        Hint = 'Download selected files...'
        HelpContext = 1010
        Caption = '&Save Files...'
        Default = True
        Enabled = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = btnSaveFilesClick
      end
      object Panel3: TPanel
        Left = 141
        Top = 78
        Width = 62
        Height = 20
        Hint = 'The number of items selected out of the total number...'
        HelpContext = 1009
        BevelOuter = bvLowered
        TabOrder = 4
        object lblSelCount: TLabel
          Left = 4
          Top = 3
          Width = 55
          Height = 14
          AutoSize = False
          Caption = '0/0'
        end
      end
      object lstUserChoices: TListView
        Left = 0
        Top = 103
        Width = 355
        Height = 95
        Hint = 'Right Click on list for more options...'
        HelpContext = 1011
        ColumnClick = False
        OnDblClick = lstUserChoicesDblClick
        Columns = <
          item
            Caption = 'Files Found'
            Width = 0
          end
          item
            Alignment = taRightJustify
            Caption = 'Size'
            Width = 0
          end>
        ReadOnly = True
        HideSelection = False
        IconOptions.Arrangement = iaLeft
        IconOptions.AutoArrange = True
        IconOptions.WrapText = False
        MultiSelect = True
        OnMouseDown = lstUserChoicesMouseDown
        OnMouseMove = lstUserChoicesMouseMove
        OnMouseUp = lstUserChoicesMouseUp
        ParentShowHint = False
        ShowHint = False
        PopupMenu = popLstUserChoices
        TabOrder = 1
        ViewStyle = vsList
        OnKeyDown = lstUserChoicesKeyDown
        OnKeyUp = lstUserChoicesKeyUp
        SmallImages = imgIcons
        StateImages = imgState
      end
      object GroupBox5: TGroupBox
        Left = 2
        Top = -1
        Width = 201
        Height = 71
        TabOrder = 2
        object btnFilter: TButton
          Left = 82
          Top = 14
          Width = 72
          Height = 22
          Hint = 'Removes choices that do not match file mask...'
          HelpContext = 1003
          Caption = 'Filte&r...'
          Enabled = False
          TabOrder = 0
          OnClick = btnFilterClick
        end
        object cbbFilters: TComboBox
          Left = 7
          Top = 43
          Width = 188
          Height = 21
          Hint = 'Enter a file mask, example: "ftp://fred??*.zip"...'
          HelpContext = 1004
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 0
          ParentFont = False
          TabOrder = 1
          Text = 'All Files (*.*)'
        end
        object btnSelect: TButton
          Left = 7
          Top = 14
          Width = 69
          Height = 22
          Hint = 'Selects choices which match file mask...'
          HelpContext = 1002
          Caption = 'S&elect...'
          Enabled = False
          TabOrder = 2
          OnClick = btnSelectClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 208
        Top = -1
        Width = 145
        Height = 71
        TabOrder = 3
        object chkShowFullPaths: TCheckBox
          Left = 9
          Top = 10
          Width = 115
          Height = 22
          Hint = 'Show full URL paths, and restore after Filter...'
          HelpContext = 1005
          Caption = 'Sho&w Full Paths'
          TabOrder = 0
          OnClick = chkShowFullPathsClick
        end
        object chkIgnoreErrors: TCheckBox
          Left = 9
          Top = 30
          Width = 112
          Height = 17
          Hint = 'Ignore errors that would prompt you when saving...'
          HelpContext = 1006
          Caption = '&Ignore Errors'
          TabOrder = 1
          OnClick = chkIgnoreErrorsClick
        end
        object chkBuildDirs: TCheckBox
          Left = 9
          Top = 48
          Width = 117
          Height = 17
          Hint = 'Builds subdirectories as in URL...'
          HelpContext = 1007
          Caption = '&Build Directories'
          TabOrder = 2
          OnClick = chkBuildDirsClick
        end
      end
      object btnGetSizes: TButton
        Left = 2
        Top = 77
        Width = 72
        Height = 21
        Hint = 'Gets file sizes of selected URLs...'
        HelpContext = 1008
        Caption = '&Get Sizes'
        TabOrder = 5
        OnClick = btnGetSizesClick
      end
    end
    object TabSheet3: TTabSheet
      HelpContext = 2501
      Caption = 'Save To'
      object grpSaveTo: TGroupBox
        Left = 2
        Top = 3
        Width = 178
        Height = 192
        Hint = 'Directory to download files to...'
        Caption = ' Save To: '
        TabOrder = 0
        object btnNewFolder: TButton
          Left = 7
          Top = 17
          Width = 76
          Height = 22
          Hint = 'Create a new subdirectory...'
          Caption = '&New Folder'
          TabOrder = 0
          OnClick = btnNewFolderClick
        end
        object dlbDirectory: TDirectoryListBox
          Left = 7
          Top = 98
          Width = 165
          Height = 86
          Hint = 'Press Delete to delete selected directory...'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 16
          ParentFont = False
          TabOrder = 1
          OnChange = dlbDirectoryChange
          OnKeyDown = dlbDirectoryKeyDown
        end
        object cbbDrive: TDriveComboBox
          Left = 7
          Top = 72
          Width = 165
          Height = 21
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          OnChange = cbbDriveChange
        end
        object txtNewDir: TEdit
          Left = 87
          Top = 18
          Width = 85
          Height = 21
          Hint = 'Enter the name of the folder to create...'
          TabOrder = 3
          Text = 'noname'
        end
        object pnlDiskFree: TPanel
          Left = 7
          Top = 45
          Width = 165
          Height = 21
          Hint = 'Disk space information...'
          BevelOuter = bvLowered
          Caption = '1100 of 1200 megs free'
          TabOrder = 4
        end
      end
      object grpYourFiles: TGroupBox
        Left = 185
        Top = 3
        Width = 168
        Height = 192
        Caption = ' Your Files: '
        TabOrder = 1
        object cbbYourFiles: TFilterComboBox
          Left = 7
          Top = 19
          Width = 155
          Height = 21
          FileList = lstCrrntDr
          Filter =
            'All files (*.*)|*.*|Jpegs (*.jpg)|*.jpg;*.jpeg|GIFs (*.gif)|*.gi' +
            'f|Images (*.gif;*.jpg;*.bmp;*.pcx)|*.gif;*.jpg;*.jpeg;*.bmp;*.pc' +
            'x|Movies (*.mpg;*.mpeg;*.mov;*.avi)|*.mpg;*.mpeg;*.mov;*.avi|Tex' +
            't (*.txt)|*.txt|HTML (*.html;*.htm)|*.html;*.htm|Compressed (*.z' +
            'ip;*.arj;*.lzh;*.pak)|*.zip;*.arj;*.lzh;*.pak'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
        end
        object lstCrrntDr: TFileListBox
          Left = 7
          Top = 45
          Width = 155
          Height = 139
          Hint =
            'Delete key to delete selected, Double Click to open in Netscape.' +
            '..'
          FileType = [ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal]
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          MultiSelect = True
          ParentFont = False
          TabOrder = 1
          OnChange = lstCrrntDrChange
          OnDblClick = lstCrrntDrDblClick
          OnKeyDown = lstCrrntDrKeyDown
        end
      end
    end
  end
  object mediaPlayer: TMediaPlayer
    Left = 22
    Top = 160
    Width = 253
    Height = 30
    Visible = False
    TabOrder = 2
  end
  object mnuMain: TMainMenu
    Left = 147
    Top = 142
    object mnuFile: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object mnuAppendListofURLs: TMenuItem
        Caption = '&Append List of URLs...'
        HelpContext = 3002
        ShortCut = 16460
        OnClick = mnuAppendListofURLsClick
      end
      object mnuSaveListofURLs: TMenuItem
        Caption = '&Save List of URLs...'
        Enabled = False
        HelpContext = 3003
        ShortCut = 16467
        OnClick = mnuSaveListofURLsClick
      end
      object N7: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnuOpenNetscape: TMenuItem
        Caption = 'Quick Launch &Netscape...'
        HelpContext = 3004
        ShortCut = 16462
        OnClick = mnuOpenNetscapeClick
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnuViewOrderFrm: TMenuItem
        Caption = 'Or&der Form...'
        ShortCut = 0
        OnClick = mnuViewOrderFrmClick
      end
      object mnuRegister: TMenuItem
        Caption = '&Register Now!'
        ShortCut = 0
        OnClick = mnuRegisterClick
      end
      object bar2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 32883
        OnClick = Exit1Click
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object mnuShowInlineImages: TMenuItem
        Caption = '&Inline Images'
        Checked = True
        ShortCut = 0
        Visible = False
        OnClick = mnuShowInlineImagesClick
      end
      object mnuShowFullPaths: TMenuItem
        Caption = '&Show Full Paths'
        ShortCut = 0
        Visible = False
        OnClick = mnuShowFullPathsClick
      end
      object mnuShowErrorWindow: TMenuItem
        Caption = 'Show &Error Window...'
        HelpContext = 3005
        ShortCut = 16453
        OnClick = mnuShowErrorWindowClick
      end
      object N9: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnuSetPassword: TMenuItem
        Caption = 'Set &Username and Password...'
        HelpContext = 3006
        ShortCut = 16464
        OnClick = mnuSetPasswordClick
      end
      object mnuOptions: TMenuItem
        Caption = '&Configuration...'
        ShortCut = 16463
        OnClick = mnuOptionsClick
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object Tips1: TMenuItem
        Caption = '&Help Topics'
        ShortCut = 112
        OnClick = Tips1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnuAbout: TMenuItem
        Caption = '&About...'
        ShortCut = 0
        OnClick = mnuAboutClick
      end
    end
  end
  object popLstUserChoices: TPopupMenu
    Left = 61
    Top = 180
    object popListView: TMenuItem
      Caption = 'List Files'
      GroupIndex = 1
      RadioItem = True
      ShortCut = 0
      OnClick = popListViewClick
    end
    object popSmallIcons: TMenuItem
      Caption = 'Small Icons'
      GroupIndex = 1
      RadioItem = True
      ShortCut = 0
      Visible = False
      OnClick = popSmallIconsClick
    end
    object popReport: TMenuItem
      Caption = 'Report Style'
      Checked = True
      GroupIndex = 1
      RadioItem = True
      ShortCut = 0
      OnClick = popReportClick
    end
    object N3: TMenuItem
      Caption = '-'
      GroupIndex = 1
      ShortCut = 0
      Visible = False
    end
    object popLeftIcons: TMenuItem
      Caption = 'Icons Left'
      Checked = True
      GroupIndex = 2
      RadioItem = True
      ShortCut = 0
      Visible = False
      OnClick = popLeftIconsClick
    end
    object popTopIcons: TMenuItem
      Caption = 'Icons Top'
      GroupIndex = 2
      RadioItem = True
      ShortCut = 0
      Visible = False
      OnClick = popTopIconsClick
    end
    object N4: TMenuItem
      Caption = '-'
      GroupIndex = 2
      ShortCut = 0
      Visible = False
    end
    object popAutoArrange: TMenuItem
      Caption = 'Auto Arrange Icons'
      Checked = True
      GroupIndex = 3
      ShortCut = 0
      Visible = False
      OnClick = popAutoArrangeClick
    end
    object popWrapText: TMenuItem
      Caption = 'Wrap Text'
      Checked = True
      GroupIndex = 3
      ShortCut = 0
      Visible = False
      OnClick = popWrapTextClick
    end
    object N5: TMenuItem
      Caption = '-'
      GroupIndex = 3
      ShortCut = 0
    end
    object popClear: TMenuItem
      Caption = '&Clear List'
      GroupIndex = 3
      ShortCut = 16451
      OnClick = popClearClick
    end
    object popSortLst: TMenuItem
      Caption = '&Sort files list'
      GroupIndex = 3
      ShortCut = 16467
      OnClick = popSortLstClick
    end
    object popRegenerateList: TMenuItem
      Caption = 'Regenerate &List'
      GroupIndex = 3
      ShortCut = 16466
      OnClick = popRegenerateListClick
    end
    object popUsrNetscapeURL: TMenuItem
      Caption = '&Open URL in Netscape'
      Enabled = False
      GroupIndex = 3
      ShortCut = 0
      OnClick = popUsrNetscapeURLClick
    end
    object popToggleSelected: TMenuItem
      Caption = '&Toggle Selected'
      Enabled = False
      GroupIndex = 3
      ShortCut = 0
      OnClick = popToggleSelectedClick
    end
    object popRemove: TMenuItem
      Caption = '&Remove...'
      Enabled = False
      GroupIndex = 3
      ShortCut = 0
      object popRemUnselected: TMenuItem
        Caption = 'Unselected URLs'
        Enabled = False
        ShortCut = 0
        OnClick = popRemUnselectedClick
      end
      object popRemSelected: TMenuItem
        Caption = 'Selected URLs'
        Enabled = False
        ShortCut = 0
        OnClick = popRemSelectedClick
      end
      object popRemFailed: TMenuItem
        Caption = 'Red Failed Transfers'
        ShortCut = 0
        OnClick = popRemFailedClick
      end
      object popRemPartial: TMenuItem
        Caption = 'Yellow Partial Transfers'
        ShortCut = 0
        OnClick = popRemPartialClick
      end
      object popRemSuccess: TMenuItem
        Caption = 'Green Successful Transfers'
        ShortCut = 0
        OnClick = popRemSuccessClick
      end
    end
  end
  object imgIcons: TImageList
    Left = 64
    Top = 141
  end
  object imgState: TImageList
    Left = 25
    Top = 145
  end
  object popCbbURLs: TPopupMenu
    OnPopup = popCbbURLsPopUp
    Left = 190
    Top = 147
    object popCopy: TMenuItem
      Caption = '&Copy URL from Netscape'
      ShortCut = 0
      OnClick = popCopyClick
    end
    object popCbbNetscapeOpen: TMenuItem
      Caption = '&Open URL in Netscape'
      ShortCut = 0
      OnClick = popCbbNetscapeOpenClick
    end
    object N8: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object popAddtoBookmarks: TMenuItem
      Caption = '&Add to Bookmarks'
      Hint = 'In Netscape you must re-open the bookmark file...'
      ShortCut = 16449
      OnClick = popAddtoBookmarksClick
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object popSelectFrmBkmrks: TMenuItem
      Caption = 'Select From &Bookmarks...'
      ShortCut = 0
      Visible = False
    end
    object popSelectFrmNetBkmrks: TMenuItem
      Caption = 'Select From &Netscape Bookmarks...'
      ShortCut = 0
    end
    object popSelectFromList: TMenuItem
      Caption = '&Select From Session List...'
      ShortCut = 0
    end
  end
  object ddeClientConv: TDdeClientConv
    ConnectMode = ddeManual
    Left = 184
    Top = 187
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'LKS'
    FileEditStyle = fsEdit
    Filter = 'All files (*.*)|*.*|List of URLs (*.lks)|*.lks'
    FilterIndex = 2
    InitialDir = '.'
    Options = [ofHideReadOnly, ofFileMustExist]
    Title = 'Open List of URLs...'
    Left = 110
    Top = 141
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'LKS'
    FileEditStyle = fsEdit
    Filter = 'List of URLs (*.lks)|*.lks'
    InitialDir = '.'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
    Left = 140
    Top = 185
  end
  object Timer: TTimer
    Enabled = False
    OnTimer = TimerOut
    Left = 23
    Top = 189
  end
  object Validator: TValidator
    RandSeed = 21593
    OnVldOk = ValidatorVldOk
    OnVldFailed = ValidatorVldFailed
    Left = 104
    Top = 176
  end
end